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CALLING THE CREATEPROCESS INTRINSIC 


With the introduction of the CREATEPROCESS intrinsic in MPE V/E it became possible to create and 
activate a son process that uses a $STDLIST and $STDIN different from those used by the father process. 
However, in order to use this capability it is necessary to assign a "pointer to a byte array’ to an 
element of a logical array. This task is easy in SPL, which provides convenient syntax for indirect 
addressing, in COBOLII which provides a ". LOC." pseudo- intrinsic, and in Pascal, which provides a 
BADDRESS function that returns a pointer to a byte array. But suppose you have none of these 
languages on your system and you need to use this feature with FORTRAN/3000, FORTRAN/77, 
BUSINESS BASIC, TRANSACT or some language acquired from an independent software 
house? This note supplies a description of the necessary underlying principles and examples, 
written and tested at the Response Center, of code for doing this on every language in which it is possible 
on the HP3000. You will note the omission of RPG, which cannot call intrinsics and BASIC/3000 
which cannot call. any external that expects a parameter to be passed by value (which includes all 
OPTION VARIABLE externals; they expect a bit map to be passed by value). 


POINTERS ARE ADDRESSES 


A future application note will discuss the topic of addressing and parameter passing in further detail. 
This note will address only the material necessary for an understanding of calling the 
CREATEPROCESS intrinsic. 


What is a pointer to a byte array? It is simply a 16 bit number that tells how many BYTES to count from 
the DB register to the first BYTE of storage allocated for a byte array. This is also known as the "byte 
address" of the byte array. 


The HP3000 uses word addresses as well as byte addresses. Word addresses,too, are 16 bit numbers and 
they tell how many WORDS to count from DB to the first WORD of storage of the object in question. 


SOME PRINCIPLES OF PARAMETER PASSING 


There are two methods of parameter passing that are important in discussing how to obtain a pointer toa 
byte array; passing by value and passing by reference. Passing a parameter by value means that a copy 
of the data is received by the called subprogram. Passing by reference means that the called 
subprogram receives the byte address or word address at which the data are actually stored. 


When calling MPE intrinsics a programmer usually need not be concerned with the details of how a 
parameter is passed as long as the intrinsics are declared in the program as system intrinsics. If they are 
declared as system intrinsics, the compiler (for most languages) will open SPLINTR.PUB.SYS to find out 
how the parameters are to be passed and then generate a calling sequence that passes them as expected. 
If the intrinsic is OPTION VARIABLE it will also generate the bit map to be passed by value that is 
required by these intrinsics. All of this is transparent to the programmer. 


There are two cases where it is necessary to explicitly control how the parameters are passed toan MPE 
intrinsic. First is if you need to "fool" the intrinsic in order to achieve some special result. (In this case 
don’t declare it as an intrinsic and use the language specific syntax to force the method of passing.) 
Second is if you are using TRANSACT. TRANCOMP will not automatically generate the correct 
parameter passing methods for MPE._intrinsics, even if the intrinsics are declared by 
DEFINE(INTRINSIC) in the program. 


HOW TO GET A POINTER TO A BYTE ARRAY 


In those languages which do not provide a function to return a byte address or an explicit method of 
indirection in addressing, you must use the principles sketched above and seek a way get a byte address 
into a 16 bit word. If you can do this, you can assign the contents of this word to an element of the 
array required by CREATEPROCESS. 


The ASCII and BINARY intrinsics provide you with the necessary tools to do this. The ASCII intrinsic: 
expects to receive three parameters) WORD, a 16 bit word passed by value; BASE, a 16 bit word passed 
by value; STRING, a 16 bit word containing a byte address. The intent is to take the WORD parameter 
as a number which is to be converted into an ASCII numeric representation. The BASE parameter 
represents the base (octal, decimal, etc.) in which the ASCII representation is to appear. The 
STRING parameter points to a storage location where the ASCII string will be returned. 


The BINARY intrinsic has two parameters: STRING, a 16 bit word containing a byte address, LENGTH, 
a 16 bit word containing a byte address. The intent is the reverse of the ASCII intrinsic. A numeric 
ASCII string, stored at the byte address contained in STRING, and of length. LENGTH is to be POneree 
to its corresponding binary value. 


Both of these intrinsics are functions, and return a result to a specified variable of the calling routine. 


Now comes the need to "fool" the ASCII intrinsic in order to achieve a special result. You have a 
program in which you have declared a byte array. You have initialized this array to contain the 
name of a file to be used as $STDIN for the son process to be created, being careful to terminate the 
file name with a carriage return as required. You need to assign a pointer to this byte array to an 
element of the array to pass toCREATEPROCESS. You can do this as follows: 


1. DO NOT DECLARE THE ASCII INTRINSIC AS A SYSTEM INTRINSIC! Instead, declare it 
as a short integer external function written in SPL. 


2. Call the ASCII intrinsic using the declared name of the roe array. Note that the byte array 
needs a pointer as its first parameter. 


3. Use the BINARY intrinsic (it is O.K. to declare it as a system intrinsic) to convert the string 
returned by the ASCII intrinsic into a binary number. This number is then assigned into an 
element of the array to be passed to CREATEPROCESS. 


Since you have not declared the ASCII intrinsic as a SYSTEM intrinsic, the compiler will use the 
default method of parameter passing (ie, pass by reference). In the first parameter, the ASCII intrinsic 
expects to receive a word by value. The word it actually received was passed by reference, but it 
has no way of knowing this. It simply assumes it contains a number to be converted and converts it into 
an ASCII string. The BASE parameter must be passed by value. The method of doing this is language 
specific and can be found in the appropriate language reference manual. It is also illustrated in the 
languages for which it is applicable in the following code examples. 


USING THE EXAMPLE PROGRAMS 


The rest of this note consists of: 
1. asample $STDIN file which contains instructions for TDP. PUB.SYS or EDITOR/ 3000 
2. a sample TEXTFILE for TDP or EDITOR | 


3. sample programs which can be entered in an editor, compiled, prepped with PH capability 
and run 


Sample $STDIN File 


TEXT TEXTFILE 
LIST ALL 
EXIT 


Sample TEXTFILE for TDP.PUB.SYS 


This is a test to verify 

the call of the CREATEPROCESS 
intrinsic with $STDIN 

redirected to another file. 


170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 


SAMPLE PROGRAM FOR BUSINESS BASIC 


OPTION BASE 1 
INTRINSIC Createprocess, Binary 


EXTERNAL SPL SHORT INTEGER Ascii(Fname§, SHORT INTEGER VALUE Base, 
ST$) 
REM 
REM 
REM For process handling applications Business BASIC provides the 


REM SYSTEMRUN statement which eliminates the need to write 

REM this code. It is included in this application note in order | 
REM to document a method of getting a pointer to a byte 
REM array in case it should be needed for some other kind 

REM of application. 

REM 

REM 

SHORT INTEGER Error,Pin,Itemnums(10),Items(10),Length 

DIM Progname$ [36] ,St$[10] 

Progname$="TDP.PUB.SYS " 

Stdin$="STDIN " 

REM 

REM This filenane must terminate with a carriage return (CHR$(13)). 
REM ; 
Stdin$ [8] =CHR$(13) 

Items(1)=1 

Itemnums(1)=3 

Items (2)=3 

Itemnums(2)=10 

Itemnums (3)=8 

Itemnums (4) =0 

Base=10 

Length=FNCALL (Ascii(Stdin$, Base,St$) ) 

Items (3)=FNCALL (Binary (St$,Length) ) 

CALL Createprocess(Error, Pin, Progname$, Itemnums (#) , Items (#) ) 
IF Error<>0 THEN PRINT Error 

END 


001000 
001000 
001100 
001200 
001300 
001400 
001500 
001600 
001700 
001800 
001900 
002000 
002100 
002200 
002300 
002400 
002500 
002600 
002900 
003000 
003300 
003400 
003700 
003800 
004100 
004200 
004300 
004400 
004500 
004600 
004700 


SAMPLE PROGRAM FOR COBOLII 


IDENTIFICATION DIVISION. 

IDENTIFICATION DIVISION. 

PROGRAM-ID. COBOL-EXAMPLE. 

AUTHOR. RESPONSE CENTER. 

REMARKS. This program is calls the CREATEPROCESS intrinsic 
with $STDIN redirected. 

DATA DIVISION. 

WORKING-STORAGE SECTION. 


01 CPERR PIC S9(4) COMP. 
01 PIN PIC S9(4) COMP. 
01 PROGNAME PIC X(36) VALUE "TDP.PUB.SYS ". 
01 STDIN. . 
05 NAME ~ PIC X(8) VALUE "STDIN saa 
05 CR PIC $9(4) COMP VALUE 3328. 


01 ITEMNUMS. 
O05 ITEMNUM OCCURS 4 TIMES PIC S9(4) COMP. 
O01 ITEMS. 
O05 ITEM OCCURS 3 TIMES PIC S9(4) COMP. 
PROCEDURE DIVISION. 
C=P. 
MOVE 3 TO ITEMNUM(1). 
MOVE 1 TO ITEM(1). 
MOVE 10 TO ITEMNUM(2). 
MOVE 3 TO ITEM(2). 
MOVE 8 TO ITEMNUM(3). 
CALL INTRINSIC ".LOC." USING @STDIN GIVING ITEM(3). 
MOVE 0 TO ITEMNUM(4). 
CALL INTRINSIC "CREATEPROCESS" USING CPERR, PIN, PROGNAME, 
ITEMNUMS, ITEMS. 
IF CPERR NOT EQUAL TO 0 THEN DISPLAY CPERR. 
STOP RUN. | : 


SAMPLE PROGRAM FOR FORTRAN/3000 


$CONTROL USLINIT 


(oo @) 


20 


100 


PROGRAM FTN3000 

SYSTEM INTRINSIC CREATEPROCESS 
CHARACTER*36 PROGNAME, FILENAME 
INTEGER ERROR, PIN, ITEMNUMS(12) 
LOGICAL ITEMS(12), SUSP, LOC 
PROGNAME “TDP.PUB.SYS ’ 
FILENAME “STDIN ” 


THIS FILENAME MUST TERMINATE WITH A CARRIAGE RETURN 
FILENAME [7:1] %15C 

ITEMNUMS (1) = 
ITEMS(1) = %1L 
ITEMNUMS(2) =. 10 

ITEMS (2) =%3L 

ITEMNUMS (3) =8 

ITEMS (3) =LOC (FILENAME) 

ITEMNUMS (4) =0 

CALL CREATEPROCESS (ERROR, PIN, PROGNAME , ITEMNUMS , ITEMS) 
IF (.CC.) 10,20,10 

CONTINUE 

WRITE(6,100) ERROR 

CONTINUE 

STOP 

FORMAT(’ CREATEPROCESS FAILURE - ERROR NUMBER: re | 
END 
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LOGICAL FUNCTION LOC (FILENAME) 
SYSTEM INTRINSIC BINARY 

INTEGER ASCII,LENGTH 
CHARACTER*6 STR 

CHARACTER#36 FILENAME 
LENGTH=ASCII (FILENAME, \10\,STR) 
LOC=BINARY (STR, LENGTH) 

RETURN 

END 


SAMPLE PROGRAM FOR FORTRAN 77 


$STANDARD LEVEL SYSTEM 
$USLINIT 


$SHORT 


PROGRAM FIN77 

IMPLICIT NONE 

SYSTEM INTRINSIC CREATEPROCESS 

CHARACTER PROGNAME#36 ,STDIN#36 

INTEGER*2 ERROR,PIN, ITEMNUMS (10), ITEMS (10), LOC 
STDIN = ‘STDIN ‘ 

PROGNAME = ’TDP.PUB.SYS : 


C 
C THIS FILE NAME MUST TERMINATE WITH A CARRIAGE RETURN, 
C WHICH IS ASCII CHARACTER 13 (DECIMAL). 
C 
STDIN(7:7) = CHAR(13) 
ITEMNUMS(1) = 
ITEMS(1) = 
ITEMNUMS(2) = 
ITEMS(2) = 
ITEMNUMS(3) = 
ITEMS(3) = ee 
ITEMNUMS (4) = 
CALL ee pee eae: PIN,PROGNAME ,ITEMNUMS, oe 
IF (ERROR .NE. 0) THEN 
WRITE(6,100) ERROR 
ENDIF 
STOP 
100 FORMAT(’ CREATEPROCESS ERROR NUMBER =’ ,13) 
END 
C 
C 
$SHORT 


INTEGER#2 FUNCTION LOC (NAME) 


$ALIAS ASCII SPL (%REF, %VAL, %REF) 


IMPLICIT NONE 

SYSTEM INTRINSIC BINARY 
CHARACTER#36 NAME 

CHARACTER*6 STRING 

INTEGER#2 LENGTH,ASCII 

LENGTH = ASCII (NAME,10,STRING) 
LOC = BINARY (STRING, LENGTH) 
RETURN 

END 


SAMPLE PROGRAM FOR PASCAL 


$STANDARD LEVEL “HP3000’$ 
$USLINIT$ 


PROGRAM PASCAL (INPUT ,OUTPUT) ; 

TYPE 
SMALL = -32768. .32767; . 
SMALARAY = ARRAY [1..5] OF SMALL; 
BYTES = PACKED ARRAY[1..36] OF CHAR; 


INUMS = RECORD 
FLAGS: SMALL; 
SUSP: SMALL; 
STDIN: SMALL; 
END; . 


FIRST PARAMETER OF INTRINSIC } 
SECOND PARAMETER } 
THIRD PARAMETER } 
FOURTH PARAMETER } 
FIFTH PARAMETER } 


VAR ERROR, 
PIN: SMALL; 
PROGNAME: BYTES; 
ITEMNUMS: SMALARAY; 
ITEMS: INUMS; 
STDIN: BYTES; 


OR RR ANOS 


PROCEDURE CREATEPROCESS; INTRINSIC; 
BEGIN 


STDIN := “STDIN ’; 
STDIN[7] := CHR(13);3. 


PROGNAME “TDP.PUB.SYS ’; 
ITEMNUMS[1] := 3; 
ITEMNUMS [2] := 10; 
ITEMNUMS[3] := 8; 
ITEMNUMS[4] := 0; 


ITEMS.FLAGS : 

ITEMS.SUSP := 3; . 

ITEMS.STDIN := BADDRESS(STDIN); 

CREATEPROCESS (ERROR, PIN, PROGNAME , ITEMNUMS , ITEMS) ; 
END. 


$co 
BEG 


SAMPLE PROGRAM FOR SPL 


NTROL USLINIT 
IN 


INTEGER ERROR; 

INTEGER PIN; 

BYTE ARRAY PROGNAME(0:15) := "TDP.PUB.SYS "; 
INTEGER ARRAY ITEMNUMS(0:8); 

ARRAY ITEMS(0:8); 

BYTE ARRAY INPUTFILE(0:8) := "STDIN "; 

BYTE ARRAY ERRNUM(0:8); 

ARRAY LBUF (#*)=ERRNUM(0O) ; 


INTRINSIC CREATEPROCESS,ASCITI,PRINT; 


INPUTFILE(6) := %15; 
ITEMS(O) := 1; 
ITEMNUMS(0) := 3; 
ITEMS(1) := 33 
ITEMNUMS(1) := 10; 
ITEMS(2) := @INPUTFILE; 
ITEMNUMS(2) := 8; 
ITEMNUMS(3) := 0; 


CREATEPROCESS(ERROR, PIN, PROGNAME, ITEMNUMS, ITEMS); 
IF ERROR <> O THEN 
BEGIN 
ASCII(ERROR,10,ERRNUM) ; 
PRINT(LBUF ,-8,%40); 
END; 


END. 


SAMPLE PROGRAM FOR TRANSACT 


SYSTEM TRNSCT; 


DEFINE( ITEM) PROGNAME X(36): 
STDIN X(8): 
CCTL 1(4)=STDIN(8): 
ERROR (4); 
PIN 1(4): 
ITEMNUMS 41 (4); 
ITEMNUM I1(4)=ITEMNUMS (1): 
ITEMS 41 (4): 
ITEM I1(4)=ITEMS(1): 
STRING X(6): 
BASE (4): 
LENGTH 1(4): 
MAP 1(4); 
LIST PROGNAME: 

STDIN: 

ERROR: 

PIN: 

ITEMNUMS: 

ITEMS: 

STRING: 

BASE: 

LENGTH: 

MAP; 


MOVE (PROGNAME) = "“TDP.PUB.SYS 
MOVE (STDIN) = “STDIN "; 
LET (CCTL) = 13#256; 


LET OFFSET(ITEMNUM) = 0; 
LET OFFSET(ITEM) = 0; 
LET (ITEMNUM) = 

LET (ITEM) = 


LET OFFSET(ITEMNUM) = 2; 
LET OFFSET(ITEM) = 

LET (ITEMNUM) = 

LET (ITEM) = 


LET OFFSET(ITEMNUM) = 4; 
LET OFFSET(ITEM) = 
LET (ITEMNUM) = 

LET (BASE) = 

PROC ASCII( %(STDIN), # 


te 
. 
+] 


#(BASE) , %(STRING), &(LENGTH) ); 


PROC BINARY( %(STRING), #(LENGTH), ey) Ne 


LET aca = 6; 
LET (ITEMNUM) = 
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<< 


Note that in TRANSACT you can DEFINE(INTRINSIC) CREATEPROCESS, 
but this does not have the effect of opening the SPLINTR file 
at compile time and generating the calling sequences in 
accordance with the declarations in it for you, as it will in 
the other languages. You must explicitly pass the parameters 
as the external procedure expects to receive them, including 
commas for parameters omitted (two for double word parameters 
passed by value if omitted). In the case of OPTION VARIABLE 
externals such as CREATREPROCESS this also means that you must 
pass a bit map by value. See Chapter 7 of the SPL Reference 
Manual for detailed discussion of this matter. >> 


LET (MAP) = 31; 
PROC CREATEPROCESS( (ERROR), (PIN), %(PROGNAME) , 


(ITEMNUMS), (ITEMS), #(MAP) ); 


IF (ERROR) = 0 THEN GO TO STOP 

ELSE DISPLAY "CREATEPROCESS ERROR NUMBER = ":ERROR 
STOP: 

EXIT; 


END; 
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